﻿Imports System.Data
Imports System.Data.SqlClient
Imports CondorTravel.BE
Imports CondorTravelUTIL.DL



Public Class CiudadDALC


    Public Function ListarCiudad(ByVal objPaisBE As PaisBE, ByRef bExito As Boolean, ByRef sMensaje As String) As List(Of CiudadBE)

        Dim sqlListar As String
        Dim objListaCiudad As New List(Of CiudadBE)
        Dim objCiudadBE As CiudadBE = Nothing

        Dim arrSqlParameter(0) As SqlParameter
        Dim ds As DataSet
        Dim dt As DataTable

        Dim objDatos As New AccesoDatos()
   
        Dim intI As Integer = 0

        Try

            sqlListar = "SP_CiudadList"

            arrSqlParameter(0) = New SqlParameter("@CODIGO", System.Data.SqlDbType.Int)
            arrSqlParameter(0).Value = objPaisBE.Codigo

            ds = objDatos.DevuelveDataSet(sqlListar, bExito, sMensaje, arrSqlParameter)
            dt = ds.Tables(0)


            objListaCiudad = New List(Of CiudadBE)()

            If dt.Rows.Count > 0 Then

                While intI < dt.Rows.Count
                    objCiudadBE = New CiudadBE()
                    objPaisBE = New PaisBE()
                    objCiudadBE.Codigo = dt.Rows(intI).ItemArray(0).ToString
                    objPaisBE.Codigo = dt.Rows(intI).ItemArray(1).ToString
                    objCiudadBE.Pais = objPaisBE
                    objCiudadBE.Descripcion = dt.Rows(intI).ItemArray(2).ToString
                   
                    intI = intI + 1

                    objListaCiudad.Add(objCiudadBE)
                End While
            End If

        Catch ex As Exception
            MsgBox(ex.Message, vbCritical, "Error del sistema")
            Return Nothing
            Exit Function
        End Try


        Return objListaCiudad

    End Function


End Class
